home *** CD-ROM | disk | FTP | other *** search
/ Amiga News 96 / Amiga News 96.iso / dpat / dpat129 / amighpv2a / examples / beep.amighp next >
Text File  |  1977-12-31  |  144b  |  18 lines
  1. DEF
  2.    freq duree  INTEGER
  3. ENDDEF
  4.  
  5. 1000 duree STO
  6. 0 freq STO
  7.  
  8. WHILE freq 1000 <
  9. DO
  10.  
  11.   duree freq BEEP
  12.   freq 200 ADD
  13.   freq STO
  14.  
  15. ENDWHILE
  16.  
  17. EXIT
  18.